Rey’s informal website

This is Rey’s website that can’t be put on a resume.

Here’s some personal information about Rey:resume

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6      ✔ purrr   0.3.4 
## ✔ tibble  3.1.8      ✔ dplyr   1.0.10
## ✔ tidyr   1.2.1      ✔ stringr 1.4.1 
## ✔ readr   2.1.2      ✔ forcats 0.5.2 
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(p8105.datasets)
library(plotly)

## 
## Attaching package: 'plotly'
## 
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following object is masked from 'package:graphics':
## 
##     layout

Create a flexdashboard using plotly for that includes at least three distinct plot types (e.g. scatterplots, line plots, bar plots, box plots, etc.)

score grade boro zipcode cuisine_description

data("rest_inspec")

plot1 = 
  rest_inspec %>% 
  drop_na() %>% 
  filter(boro == "MANHATTAN") %>%
  plot_ly(y = ~score, color = ~cuisine_description, type = "box", colors = "viridis")

plot2 = 
  rest_inspec %>% 
  drop_na() %>% 
  filter(cuisine_description == "Chinese") %>%
  count(boro) %>% 
  mutate(boro = fct_reorder(boro, n)) %>% 
  plot_ly(x = ~boro, y = ~n, color = ~boro, type = "bar", colors = "viridis")

plot3 = 
  rest_inspec %>% 
  drop_na() %>%
  mutate(zipcode = as.character(zipcode)) %>% 
  mutate(text_label = str_c("Zipcode: ", zipcode, "Score: ", score)) %>% 
  plot_ly(
    x = ~zipcode, y = ~score, type = "scatter", mode = "markers",
    color = ~score, text = ~text_label, alpha = 0.5)
plot3